Top 10k strings from MicroHobby Semanal - Issue 093-096 (1986)(Hobby Press)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
11 ;"jjjjjjjjjjjjjjjjjjjjjjjjjjjjjj";
4 x$(posx,v)
4 MY,FL;" ":
4 ;"jjjjjjjjjjjjjjjjjjjjjjjjjjjjjj":
3 y2=y1-(len-1
3 y2=y1+(len-1
3 x2=x1-(len-1
3 x2=x1+(len-1
3 x$(v,posy)
3 ;"jjjjjjjjjj";
3 ;"jjjjjjjjj";
3 ;"jjjjjjjj";
3 ;"jjjjjjj";
3 ;"jjjjjj";
3 );" ";R(XZ+4
3 );" ";R(XZ+3
3 );" ";R(XZ+2
3 );" ";R(XZ+1
2 x$(posx-v,posy-v)
2 x$(posx-v,posy+v)
2 x$(posx,posy)
2 x$(posx,g)=a$(c):
2 x$(posx+v,posy-v)
2 x$(posx+v,posy+v)
2 x$(g,posy)=a$(c):
2 pantalla
2 p$(f)((v+1
2 bright;" ":
2 Z$(E)=U$(E):
2 VUE=VUE+.5
2 PROGRAMAS INCLUIDOS EN
2 AK,XC;" ":
2 ;"kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk"
2 ;"kkkkkkkkkkkkkkkkkkk":
2 ;"jjjjjjjjjjjjjjjjjjjjjjjjjjjjjj"
2 ;"jjjjjjjjjjjjjjjjjj";
2 ;"jjjjjjjjjjj";
2 ;"WWWWWK":
2 ;"O L I M P I C"
2 ;" PULSA ""F"" PARA OTRA SOPA"
2 ;" PARA EL CASSETTE "
2 );" PUNTOS";
2 (posy-len)+1
2 (posx-len)+1
2 (len+posy)-1
2 (len+posx)-1
2 (AK,XC)=104
2 "
2 ESTA CINTA UTILIZA
2 O LOAD "<NOMBRE>"
2 PARA CARGAR LOS
2 LOAD ""
2
2
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzyyyyyyyyyyyyzzzxxxxxxxxxxxxxzzxzyyyyyyyyyyyyzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxyxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzyyyyyyyyyyyyzzzxxxxxxxxxxxxxzzxzyyyyyyyyyyyyzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxyxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNyyyyNNNNNNNNNNNNNNNNNNNNNNNNNNNNxy~~NNNNNNNNNNNNNNNNNNNNNNNNNNNNyyx~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 x$(posx-g,posy-g)=a$(g+1
1 x$(posx-g,posy+g)=a$(g+1
1 x$(posx+g,posy-g)=a$(g+1
1 x$(posx+g,posy+g)=a$(g+1
1 x$(f,g)=32
1 v,g;x$(g,v):
1 s333+NN)<C
1 posy=posy-1
1 posy=posy+1
1 posy=npal+9
1 posy=npal+8
1 p$(npal,10
1 p$(f)=p$(g)
1 p$(f)((posy+1
1 p$(f)((posx+1
1 olimpic
1 matrix p
1 fil=(y1+f+4
1 editor
1 e$(g)(f)=x$(f,g):
1 e$(f);" ";f;"- ";p$(f):
1 col=((x1+f)-1
1 carga
1 a$="EXPRESS":
1 a$=" Este programa a partir de laspalabras entradas (max.10 y lng.max.10 letras),confecciona una sopa de letras en la que las pa-labras pueden estar horizontalesverticales, en diagonal e inver-tidas. Una vez hecha la sopa podemosaveriguar la posicion de las pa-labras moviendo el cursor que aparece junto a las palabras y pulsando la tecla '0'. Cuando se hayan encontrado las palabras o para cancelar el juego, pulsar la tecla 'F'. Para imprimir la sopa por im-presora, pulsar la tecla 'P'."
1 Z$(M,N)=X$:
1 Z$(M,N)=" ":
1 Z$(F)="BLA":
1 YX,X;"{|";
1 Y$=Z$(M,N+1
1 Y$(F)="GAB":
1 X$=Z$(M,N):
1 X$(v,posy)
1 U$(F)="CHO":
1 U$(E)=Y$(E):
1 TZX BY YOXXXOY0
1 Start tape, then press any key
1 Sopaletra
1 Scalybur S
1 R$=" ":
1 PRESENTACION
1 P(J(INT),2
1 P$="F>E*AE'B)&%00<=?(>0 !0E0E?0=0&%*A0'00B) !0<?(0E00&%>0*AE'B) !?=00E(>0&%00<?0=00 #@0E0@00@,C0+@E@0@0$"
1 OLIMPIC
1 O;"POR GABRIEL CHOVA"
1 O$="F$#(),.*'&%;$:#$-7# !:98;$877&%(),.,,*' !;#$-7#89&%89(),.*' !#78;9-7:&%$:#;$#87 35<<55<554/6055<<5<2"
1 Number array:
1 NUMERO DE PALABRAS
1 Matrix
1 MY,FL;" ";
1 MOSTRAR PALABRA
1 MICROHOBBY SEMANAL 93-96
1 MAGAZINE CASSETTE
1 LQ=J(INT):
1 LOCALIZACION PALABRAS
1 LIA,COA;" "
1 LI=LI+(C1=1
1 LI,CO;"ab";
1 J(INT)=J(INT)+.05
1 J(INT)=I*3.8
1 HOYO=HOYO+
1 HOBBY PRESS
1 F;"FASE ";FS+
1 Editor
1 EXPLICACIONES
1 ENTRADA DATOS
1 D$="TIRO CON ARCO":
1 D$="TIRO AL PATO":
1 D$="LANZAMIENTO DE PESO":
1 D$="LANZAMIENTO DE MARTILLO":
1 D$="LANZAMIENTO DE JABALINA":
1 D$="GOLF":
1 D$="800 METROS VALLAS":
1 D$="800 METROS LISOS":
1 D$="400 METROS VALLAS":
1 D$="400 METROS LISOS":
1 D$="200 METROS VALLAS":
1 D$="200 METROS LISOS":
1 D$="1500 METROS OBSTACULOS":
1 D$="1500 METROS LISOS":
1 D$="110 METROS VALLAS":
1 D$="100 METROS LISOS":
1 Character array:
1 Cargador j
1 Cargador Q
1 Carga V '
1 COPYRIGHT
1 COLOCACION DE PALABRAS
1 CODIGO MAQUINA
1 CO=CO+(D1=1
1 A$="2")+(0
1 A$="1")+(145
1 A$=" ":
1 >B><>B<><B
1 >B><><<><B
1 =*(BB*J-16
1 ;Z$(M,N);Z$(M,N+1
1 ;TIP;" VUELTA ";VUE:
1 ;"lllllllllllllllllll":
1 ;"llllllllllllllll":
1 ;"kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk":
1 ;"kkkkkkkkkkkkkkkkkkkk"
1 ;"kkkkkkkkkkkkkkkkkk";
1 ;"kkkkkkkk":
1 ;"jjjjjjjjjjjjjjjjjjjjjjjjj";
1 ;"jjjjjjjjjjjjjjjjjjjjjjjj@ ?jjj";
1 ;"jjjjjjjjjjjjjjjjjjjjjjjj";
1 ;"jjjjjjjjjjjjjjjjjjjjjj? ?@ ";
1 ;"jjjjjjjjjjjjjjjjjj@ ?@ @";
1 ;"jjjjjjjj":
1 ;"jjjjjjj?@ @ @ ?jjjjjjjjjjjjj";
1 ;"jjjjjj?@? @?jjjjjj@ @ ? @? @";
1 ;"jjjj? @@";
1 ;"jjj@ @@ @ @? @ ? @ @";
1 ;"jjj@ ?jjjjjjjjjj? ? @jjjjj? @?";
1 ;"jjj?@ @?jjjjjjjjjjjjj@@ @";
1 ;"jj? @ @jjjj? @j@? @";
1 ;"j?j @@ ?jjjjj @@ @ @? @@@ @";
1 ;"________"
1 ;"TIRO CON ARCO"
1 ;"TIRO AL PATO";
1 ;"TABLA DE RECORDS"
1 ;"PUNTOS ";S;
1 ;"PUNTOS ";
1 ;"PUNTOS "
1 ;"PRUEBA ";E;
1 ;"POR GABRIEL CHOVA"
1 ;"PALABRAS";
1 ;"OLIMPIC":
1 ;"OLIMPIC"
1 ;"OLIMPIC PRESENTA"
1 ;"NO REPITAS LAS TECLAS":
1 ;"NO PARES LA CINTA":
1 ;"NBV-1985 SOPAS EXPRESS "'''
1 ;"METROS TIEMPO"
1 ;"MARTILLO";
1 ;"M A T R I X"
1 ;"Lo siento pero he de repetirlo!!":
1 ;"JABALINA";
1 ;"INTENTOS 0 FASE 1 PUNTOS 0 "
1 ;"HOYO ";A;" A ";
1 ;"HAY ALGUN ERROR S-N":
1 ;"HAS MUERTO":
1 ;"FUERZA 10-240"
1 ;"FUERZA ";PPP-65
1 ;"FUERZA ":
1 ;"ENTRENAMIENTO"
1 ;"DEMASIADO CORTO":
1 ;"CONSEGUISTE ";V(
1 ;"CONSEGUISTE ";HOYO;" HOYOS DE 18 TIROS":
1 ;"COMPETICION"
1 ;"CENTRO":
1 ;"CARGANDO UDG"
1 ;"ATLETAS ";LV
1 ;"ANGULO "
1 ;"@@? @? @j@ @";
1 ;"@?jjjjjjjjjjjjjj @? @ @jjjjjj@";
1 ;"@?@ @?@jjjj@ ? @ @ ?@?@ ";
1 ;"@?@ @j@?@ ? @";
1 ;"@? @?jjjjjjjjj";
1 ;"@? @??j@ @ @?j";
1 ;"@? @ ?@ @ @? ? ? @ @";
1 ;"@ jj@ ?jjjj@ @ ? ?jj";
1 ;"@ @ @?@jjjjjjjjjjjjjjjjjj";
1 ;"@ @ @ ??@? @";
1 ;"@ ?@@ ?jjjjjjjjjjjjjjjjjjjjj@ ";
1 ;"@ @@jjjjjjjj":
1 ;"@ @@?@? ?@jjjj@ @?";
1 ;"@ @@? @@";
1 ;"@ @?@@?jjjjjjjjjjjjjjj@@";
1 ;"@ @ ?@?@ @";
1 ;"@ @";
1 ;"@ @ @ @ @";
1 ;"@ @ ?";
1 ;"@ @ @?j@ @@ @";
1 ;"?@ @ @?@?jjjjj? @ ?";
1 ;">>>> ESTA PALABRA YA EXISTE <<<<":
1 ;"800 VALLAS";
1 ;"800 METROS";
1 ;"6..GOLF"
1 ;"5..TIRO ARCO";
1 ;"5..1500 OBST."
1 ;"5..1500 METR."
1 ;"400 VALLAS";
1 ;"400 METROS";
1 ;"4..JABALINA";
1 ;"4..800 VALLAS";
1 ;"4..800 METROS";
1 ;"3..MARTILLO";
1 ;"3..400 VALLAS";
1 ;"3..400 METROS";
1 ;"3 REC ";Z$(XZ+4
1 ;"3 REC ";Z$(XZ+3
1 ;"3 REC ";Z$(XZ+1
1 ;"3 INTE":
1 ;"200 VALLAS";
1 ;"200 METROS";
1 ;"2..TIRO AL PATO";
1 ;"2..200 VALLAS";
1 ;"2..200 METROS";
1 ;"2 REC ";U$(XZ+4
1 ;"2 REC ";U$(XZ+3
1 ;"2 REC ";U$(XZ+2
1 ;"2 REC ";U$(XZ);" ";R(XZ,2
1 ;"2 INTE";
1 ;"1500 VALLAS"
1 ;"1500 METROS"
1 ;"110 VALLAS";
1 ;"100 METROS";
1 ;"1..PESO";
1 ;"1..110 VALLAS";
1 ;"1..100 METROS";
1 ;"1 REC ";Y$(XZ+4
1 ;"1 REC ";Y$(XZ+3
1 ;"1 REC ";Y$(XZ+2
1 ;"1 REC ";Y$(XZ+1
1 ;"1 REC ";Y$(XZ);" ";R(XZ,1
1 ;"0000000";
1 ;"0 15 30 45 60 75 90 105 "
1 ;"0 11 22 33 44 55 66 77"
1 ;"#################":
1 ;" PULSA UNA TECLA PARA CONTINUAR "
1 ;" POR COMPONER"
1 ;" PALABRA";("S "
1 ;" METROS";
1 ;" ME FALTA";("N "
1 ;" ESPERA UN MOMENTO ";
1 ;" @ ? @ @";
1 ;" ";S2;" ":
1 ;" YA FALTA POCO ";
1 ;" CLASIFICA 1 REC 2 REC 3 REC "
1 ;" ":
1 ;" PULSA PARA SEGUIR":
1 ;" "
1 ;" IMPRIMIENDO ..."
1 ;" ":
1 ;" O L I M P I C ":
1 ;" ";"O L I M P I C";" "
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" "
1 :::D$88<<4<80
1 3..SINCLAIR
1 23624,120:
1 2..KEMPSTON
1 1..TECLADO
1 0
1 -V3);R(E,3
1 -V2);R(E,2
1 -V1);R(E,1
1 -(PACO-(FZ/8
1 ,XC;"%$#":
1 ,XC;" } ";
1 ,XC;" | ";
1 ,XC;" "
1 )TSR7PO_^]\[ZTS
1 )="nononononononononononononononono"
1 )="!3!3!3!3!3!3!3!3!3!3!3!3!3!3!3!3"
1 );(" "
1 )-PACO))):
1 )+((x1-f)-1
1 (LI,CO)=71
1 (AK,XC)=" "
1 'P$;" DERECHA":
1 'C$;" PONE LETRA"
1 ''O$;" IZQUIERDA":
1 '''" 1 ENTRENAMIENTO"''''" 2 COMPETICION"''''" 3 TABLA DE RECORDS"
1 ''"INTRODUCE TUS INICIALES":
1 '"ENTER VUELVE AL MENU ANTERIOR":
1 "Palabra numero ";(f);": ";
1 "Cuantas palabras? (Max. 10): ";npal:
1 "CERO ","UNA ","DOS ","TRES ","CUATRO ","CINCO ","SEIS ","SIETE ","OCHO ","NUEVE "
1 ";Z$(XZ);" ";R(XZ,3
1 "9";"ESCOGE BLOQUE 1-2-3...4 MENU "
1 "9";"ELIGE NUMERO DE PRUEBA "
1 "9";"1 INTE";
1 "7";"VIENTO "
1 "7";" "::
1 "6";"IZQUIERDA ---";
1 "6";"DISPARO-SALTO ---"
1 "6";"DERECHA ---";
1 "6";"DEFINIR TECLAS":
1 "6")="PQR"
1 "6");" PUNTOS"
1 "6");" ";Z(
1 "5";" ";
1 "5")="MNO":
1 "5");" PUNTOS"
1 "5");" ";Z(
1 "4";" ":
1 "4";" ":
1 "4")="JKL":
1 "4");" PUNTOS";
1 "4");" ";Z(
1 "3";" "
1 "3")="GHI":
1 "3")="77777777777777777777777777777777":
1 "3");" ";Z(3
1 "23";"TIROS 8";
1 "20";" ";FZ;" "
1 "2";"RONDA ";RND:
1 "2")=W$(F+
1 "2")="DEF":
1 "2")="22222222222222222222222222222222":
1 "2");" PUNTOS"
1 "2");" ";Z(
1 "2")+ZS;" PUNTOS":
1 "19",X;"[s"
1 "18",X;"?@";
1 "1000"*(M-C):
1 "10";"SALIDA FALSA":
1 "10";"RECORDS";
1 "10";"DESCALIFICADO":
1 "10";" ":
1 "1";"500 ":
1 "1";"250 ":
1 "1";"1000":
1 "1")="66666666666666666666666666666666":
1 "0";"YA ":
1 "0";"TU PUNTUACION ES ";S:
1 "0";"TE PASASTE":
1 "0";"PREPARADO":
1 "0";"LISTO ":
1 NBV-1985 *SOPAS*
1 M A T R I X
1 JAVIER TARI AGULLO.
1 IMPRESION DE SOPA
1 I$=" ":